home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / slatex / fileproc.ss < prev    next >
Text File  |  1993-11-07  |  1KB  |  45 lines
  1. ;fileproc.ss
  2. ;SLaTeX Version 1.99
  3. ;File-manipulation routines used by SLaTeX
  4. ;(c) Dorai Sitaram, December 1991, Rice University
  5.  
  6. ;file-exists?
  7.  
  8. '(enable cl)
  9. (define file-exists? probe-file)
  10.  
  11. '(disable chez cl cscheme elk scmj)
  12. (define file-exists? (lambda (f) #t)) ;assume file exists
  13.  
  14. ;delete-file
  15.  
  16. '(disable chez cl cscheme schemetoc scmj umbscheme)
  17. (define delete-file (lambda (f) 'assume-file-deleted))
  18.  
  19. '(enable schemetoc umbscheme)
  20. (define delete-file
  21.   (lambda (f)
  22.     (call-with-output-file f
  23.       (lambda (p) 'file-deleted))))
  24.        
  25. ;flush-output
  26.  
  27. '(enable cl)
  28. (define flush-output finish-output)   
  29.  
  30. ;the DOS version of C Scheme has flush-output, the Unix version doesn't
  31.  
  32. '(enable cscheme)
  33. (if (eq? *op-sys* 'dos) 'already-defined
  34.   (define flush-output (lambda z 'assume-output-flushed)))
  35.  
  36. '(enable elk)
  37. (define flush-output flush-output-port)
  38.  
  39. '(enable scmj)
  40. (define flush-output force-output)
  41.  
  42. '(disable chez cl cscheme elk scmj)
  43. (define flush-output (lambda z 'assume-output-flushed))
  44.  
  45.